home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
New Star Software Collection
/
NSS_Collection.iso
/
3-004 ms visual basic pro 30
/
disk8
/
form2a.fr_
/
form2a.bin
Wrap
Text File
|
1993-04-27
|
2KB
|
59 lines
VERSION 2.00
Begin Form Form2
Caption = "Printer Options"
ClientHeight = 1770
ClientLeft = 1095
ClientTop = 1485
ClientWidth = 6765
Height = 2175
Left = 1035
LinkTopic = "Form2"
ScaleHeight = 1770
ScaleWidth = 6765
Top = 1140
Width = 6885
Begin CommandButton Command2
Caption = "Reset Number of Copies"
Height = 255
Left = 3600
TabIndex = 3
Top = 1080
Width = 2655
End
Begin CommandButton Command1
Caption = "Accept Number of Copies"
Height = 255
Left = 360
TabIndex = 2
Top = 1080
Width = 2415
End
Begin TextBox Num_Copies
Height = 375
Left = 5400
TabIndex = 1
Text = "1"
Top = 480
Width = 495
End
Begin Label Label2
Caption = "Please enter the number of copies you wish to print :"
Height = 255
Left = 360
TabIndex = 0
Top = 480
Width = 4815
End
End
Sub Command1_Click ()
Number_Of_Copies = Num_Copies
Form2.Hide
End Sub
Sub Command2_Click ()
Num_Copies.SetFocus
Num_Copies.Text = "1"
End Sub